Parameter m.cid

Private CidNum, CidMask, Cid1, cTalk

if Set( 'Talk' ) = 'ON'
   set talk off
   cTalk = 'ON'
  else
   cTalk = 'OFF'
endif

m.CidNum  = alltrim( strtran( strtran( m.Cid, '.', ''),'/', '') )

if isnumber( m.CidNum )

   m.CidMask = alltrim( m.Cid )

   if '/' $ m.CidMask 
   
      m.Cid1    = strtran( left( m.CidMask, at('/', m.CidMask)-1), '.', '%' )
      m.CidMask = '%' + left( m.Cid1, Len(m.Cid1)-1) + '%' + right(m.cid1,1) + '%' + right( m.Cidmask,1)
      m.CidMask = strtran( m.cidmask, '/', '%' )
      
    else
    
      m.Cid1    = strtran( m.CidMask, '.', '%' )
      m.CidMask = '%' + left( m.Cid1, Len(m.Cid1)-1) + '%' + right(m.cid1,1) + '%' 
      m.CidMask = strtran( m.cidmask, '/', '%' )
      
      
   endif

   Select * from Cid3 ;
    where Cid like m.CidMask ;
    order by CID ;
     into cursor cCid

 else
 
  m.PatoMask = alltrim( strtran( m.Cid, '.', '%' ) ) + '%'
  
  Select * from Cid3 ; 
   where Patologia like m.PatoMask ;
   order by Patologia ;
    into cursor cCid
    
endif

set talk &CTalk
